home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Memory Tools.cpt / Memory Tools / card_16845.txt < prev    next >
Text File  |  1989-01-07  |  2KB  |  85 lines
  1. -- card: 16845 from stack: in
  2. -- bmap block id: 17138
  3. -- flags: 0000
  4. -- background id: 12278
  5. -- name: trapadr
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A003
  11. -- rect: left=14 top=282 right=304 bottom=114
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Trap Address
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   put card field "word" into temp
  23.   put trapadr(temp) into theaddr
  24.   put char 3 to 8 of theaddr into theaddr
  25.   repeat
  26.     if  first char of theaddr is not "0" then exit repeat
  27.     delete first char of theaddr
  28.   end repeat
  29.  
  30.   put theaddr into card field "address"
  31.  
  32.  
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (field)
  38. -- low flags: 00
  39. -- high flags: 2004
  40. -- rect: left=121 top=282 right=305 bottom=218
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 3
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: word
  49. ----- HyperTalk script -----
  50. on returninfield
  51.   click at loc of card button "Trap Address"
  52. end returninfield
  53.  
  54. on enterinfield
  55.  
  56. end enterinfield
  57.  
  58.  
  59.  
  60. -- part 3 (field)
  61. -- low flags: 01
  62. -- high flags: 2004
  63. -- rect: left=225 top=282 right=305 bottom=323
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 3
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: address
  72.  
  73.  
  74. -- part contents for background part 68
  75. ----- text -----
  76. TrapAdr is an XFCN that takes the trap word of a given toolbox trap and returns the address of the trap in memory. It uses the toolbox NGetTrapAddress to perform its action. Note that this XFCN expects the entire trap word of the trap and not just the trap number. For example, the trap word for GetNextEvent is A970 while the trap number is 170. Read about the trap mechanism in Inside Macintosh for more details. Try the Demo below to clarify any uncertainties you may have about this XFCN.
  77.  
  78.  
  79. -- part contents for card part 2
  80. ----- text -----
  81. A066
  82.  
  83. -- part contents for card part 3
  84. ----- text -----
  85. 41013A